﻿Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient

Public Class clsGrupos

    Inherits clsDatos

    Function Get_Grupos() As DataTable

        Return GetDatos("select * from artgrupo where grupo not like '%INSUMOS%' order by grupo")

    End Function

    Function Get_Grupos(ByVal strGrupo As String) As DataTable

        Return GetDatos("Select * from artgrupo where grupo like '%" & strGrupo & "%'")

    End Function

    Function Get_Grupo(ByVal strGrupo As String) As SqlClient.SqlDataReader

        Return GetRegistro("Select * from artgrupo where grupo='" & strGrupo & "'")

    End Function

End Class
